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Bongo 


Enjoy the hilarious antics of the comical 
mouse as he collects the lost diamonds. He 
climbs ladders, slides down chutes, use transporter 
and trampolines to jump across the divide. Multi screen 
game with three levels of difficulty. 

Commodore 64 £7.95 — Vic 20 £7.95 — Spectrum £5.50 


Space Pilot 


Realise your dreams of being king of the open skies. 
Fly your aircraft into unrelenting dog fights with 
enemy fighters. Prove how well you can handle your craft. 
Five stages of tough engagements. 

Commodore 64 £7.95 — Spectrum £5.50 


Also available on Disk at £9.95 

TRADE ENQUIRIES: ANIROG SOFTWARE LTD. 29 WEST HILL DARTFORD KENT (0322)92513/8 

MAIL ORDER 8 HIGH STREET HORLEY SURREY 24 HOUR CREDIT CARD SALES HORLEY (02934) 6083 
PAYMENT BY CHEQUE P O ACCESS VISA 50p POSTAGE & PACKAGING £2 00 OVERSEAS 


Flight Path 
737 

An advanced Pilot Trainer. 

Written by a flight simulator 
instructor and pilot. Panoramic 
Pilot's eye view. 

Commodore 64 £7.95 — Vic 20 £7.95 


h 













Editor 

Paul Liptrot 

Designer 

Paul Hunter 

Managing Editor 

Ron Harris 

Group Editor 

Wendy Palmer 

Advertisement Manager 

Mike Segrue 

Divisional Advertisement 
Manager 

Beverley McNeill 

Chief Executive 

Jim Connell 


Argus Specialist Publications 
Ltd, No. 1 Golden Square, 
London W1 R 3AB. 

Printed by The Passmore Print 
Group Ltd at St Albans, Herts. Trade 
Distribution: Argus Press Sales and 
Distribution Ltd. 12-14 Paul Street, 
London EC2A 4JS. 01-247 8233. 
Design and origination: MM Design, 
Circus House, 26 Little Portland 
Street, London W1 N 5AF. 

The contents of this publication, 
including all articles, plans, drawings 
and programs and all copyright and 
other intellectual property rights 
therein belong to Argus Specialist 
Publications Ltd. All rightsconferred 
by the Law of Copyright and other 
intellectual property rights and by 
virtue of international copyright 
conventions are specifically reserved 
to Argus Specialist Publications Ltd 
and any reproduction requires the 
prior written consent of the company. 

© Argus Specialist Publications Ltd 




rv 


nr 


Your ^ 

Commodore, 

a free supplement^ 

to Personal 

Computing Today, 

July 1984 


VIC-20 programs. 4 

Two fun-to-play games for the unexpanded VIC by Mathew Solly. In 
one you’re under siege and the second could make you rich... 






CBM 64 program.6 

Here’s your chance to be a hero. Just 
type in Thomas Turnbull’s program and 
save the potholers 

CBM 64 programming. 9 

Track down and use the hidden memory in your 64. Your guide is 
Allen Webb 

CBM 64 software reviews.13 

Our experts give you their ratings for new games and some more 
serious software 

VIC-20 program.i*t 

Worms can make a tasty dish... if you’re 
a bird. That’s your role in Peter 
Godbehere’s game 
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Castle Siege 

YOU ARE the last survivor in th^ 
castleandyouronlyweapon isa 
large pile of rocks 
You are under attackfrom the 
enemy who are scaling the 
castle wall. You must drop the 
rocks to dislodge them. If they 
reach the top the game is over. 
How long will you survive? 

The control keys are: Z left, X 
right and space bar to drop the 
rocks. 

• Castle Siege is in two parts. 
Type in Listing 1 , which defines 
the characters, RUN and then 
NEW. Now type in Listing 2. 
See also note at bottom. 

How it works 

10-100 main game loop 
1000-1500 initialize variables 
and strings 

2000-2500 instructions 
3000 POKE on other side of 
screen 

3500 POKE on other side of 
screen 

4000-4500 throw rock 
5000-5500 PRINT enemy 
6000-6500 game over 
7000-7500 rock hit enemy 
routine 

8000-8500 pick up rock routine 

Variables 

EH (), EL() climbing enemy 
D defender 
R rock 

FR falling rock 

RO,DE test for rock and de¬ 
fender 

E number of enemies 
S4 sound channel 
CO colour location 
T time 

BT best time 
W wall location 
L,Q loops 

TE () test for enemy at top 

Crown and 
Anchor 

THIS GAME is played with three 
dice which are displayed on 
the screen. 

The amount of money you 
have is displayed in the top left 



• Listing 1 — defines characters for Castle Siege 


0 REM 

1 REM *** CASTLE SIEGE CHARSET *** 

2 REM 

3 P0KE52,28'POKES*, 28 

4 FOR 1=7168T07631 : RE ADC F r OKE I, C : NEXT I 

5 DATA255,4,4,4,255,64,64,64,6,14,2,30,62,102,198,0 

6 DATA252,254,194,252,198,254,252,0,126,254,192,192,192,254,126,0 

7 DATA252,254,198,198,198.254,252,O,254,254,192,248,192,254,254,0 

8 DATA254,254,192,248,192,192,192,0,126,254,192,222,198,254,126,0 

9 DATA 198, 198,198,254,198, 198, 198,0,60,60, 24,24,24,60,60', 0 

10 DATA254,254,24,24,216,248,112,0,198,204,216,240,216,204,198,0 

11 DATA192,192,192,192,192,254,254,0,198,238,214,214,198,198,198,0 

12 DATA198,198,230,214,206,198,198,O,124,254,198,198,198,254,124,0 

13 DATA252,254,194,252,192,192,192,0,60,102,102,102,110,102,62, 1 

14 DATA252,254, 194,252,216,204,198, 0,124,254,192,252,6,254,124,0 

15 DATA252,252,48,48,48,48,48,0,198,198,198,198,198,198,124,O 

16 DATA198,198,198,198,198,108,56,0,198,198,198,198,214,238,198,0 

17 DATA198,198,40,16,40,198,198,0,204,204,204,120,48,48,48,0 

18 DATA254,254,28,56,112,254,254,0,0,0,0,0,60,126,126,60 

19 DATA90,90,66,60,24,24,24,24,24,24,0,60,90,90,90,24 

20 DATA25,25,2,60,88,152,28,18,19,16,48,0,255,64,64,64 

21 DATA0,0,0,0, 0, 0, 0,0, 152, 152,64,60,26,25, 56.72 

22 DATA200,8,12,0,255,64,64,64,65,36,138,16,37,32,138,32 

23 DATA0,152,152,64,60,26,25,56,63,127,226,238,226,250,98,63 

24 DATA255,255,34,170,34,234,234,255,252,254,35,239,231,239,34,252 

25 DATA 126, 255, 195, 247,239, 195, 255, 126, 48,48, 48,48, 0, 48,48,0 

26 DATA126,255,219,231,231,219,255,126,0,0,192,192,48,88.152,152 

27 DA TA0,0,0,48,48,32,64,0,0,0,0,254,127,0,0,0 

28 DATA0,0,0,0,0,48,48,0,170,85,0,0,0,0,0,0 

29 DATA124,254,206,214,230,254,124,0,56,56,24,24,24,60,60,0 

30 DATA252,254,6,254,192,254,126,0,252,254,6,124,6,254,252,0 

31 DATA24,216,216,254,24,24,24,0,126,254,192,254,6,254,252,0 

32 DATA 126, 254, 192, 254, 198,254, 124,0,254, 254,6, 12,24,48, 96, 0 

33 DATA124,254,198,124,198,254,124,0,124,254,198,254,6,254,124,0 

34 POKE198,3 = P0KE632,147-P0KE633,131 


hand corner. You start with 
£100 andare prompted with the 
message “place bet”. You then 
type in how much you wish to 
bet — not more money than 
you have! 


After pressing RETURN you 
are promted with another 
message: “back”. Type in which 
side of the dice you expect to be 
showing afterthe computer has 
thrown them The computer will 


then throwthe dice and the out¬ 
come will be printed on the 
screen. 

If one of the dice shows the 
side you backed you get double 
your stake money back If two of 
the dice show your side you get 
treble your stake money back 
and if all the dice show the side 
you backed you get four times 
your stake money returned. If 
none of them show your side 
you lose your stake. 

How it works 

10-100 main game loop 
1000-1500 initialize variables 
and strings 

2000-2500 instructions 
3000-3500 print credit 
4000-4500 bleep 


Variables 

D () dice 

P() position of numbers on dice 
R number of dice right 
T total credit 
CO colour location 
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L VIC -20 


fend your castle., 
and try your 
luck with dice 


• Listing 2 — Castle Siege, main game 


0 REM **************** 

1 REM * CASTLE SEIGE * 

2 REM * * 

3 REM * BV * 

4 REM * * 

5 REM * MATHEW SQLLV * 

6 REM * * 

7 REM * * 

8 REM **************** 

9 GOSUB100G ; GOSUB2000 

10 PR I NT " IT ■ • P0KE36879,62 = FQRH=7790TO8185 ■ POKEW, 6 : POKEW+CQ, 0 : NEXTW 

11 IFE<6THENGOSUB5000 

12 IFE=6THENE=5 

13 FORL= 1 TOE = PR I NT" WHO. SIEGEIMM4TI ME " ; T 

14 IFDE=1THENPOKED,28 : POKEB+CO,1 

15 IFRO=1THENPOKER,27:POKER+CO,2 

16 IFDE=0THEHPOKED,29 POKEB+CO,1 

17 I FRG=0THENFR=FR+22 POKEFR-22,0 ■ P0KEFR-22+C0.■ 0 POKEFR, 27 : POKEFP+CO . 2 

18 IFFR>8185THEHGOSUB8000 

20 EH<L>=EH(L >-22 EL < L>=EL(L >-22 

22 POKEEL <L >, 31 ■ POKEEL < L>+22 ■ 0 : F'OKEEH < L >, 30 ' 

23 IFEH<L >=TE<L >-396THEN6000 

29 FORQ=lTOE 

30 IFFF-EH(Q>GPFR=EL<Q>THENGOSUB7000 

31 HEXTO 

90 GETKP I FKP=" Z " THEHP=R-1 ' D=B-1 : POKER+1,32 : POKEB+1 .• 32 

91 IFKP="X"THENR=P+1:D=D+1 POKER-1,32 = POKED-1,32 

92 IFKP=" "AHBPO=1THEHGOSUB4000 

93 IFD=7767THENGOSUE3000 

94 IFD=7790THENGOSUB3500 

97 T=T+1 

98 IFBT<TTHENBT=T 

99 HEXTL 

100 E=E+1:GOTO 11 

1OOO POKE36879,25•P0KE36878,15-POKE36869,255 : POKE650.255 
1005 DIMEH(6 > BIMEL < 6) DIMTE(6> 

1010 00=30720■R=7756 D=7778 T=0■BT=0:RO=l BE=1=E=1:84=36877 
1500 RETURN 

1999 PEM[CLP][CRSP RIGHT][RED]<POUND> 

2000 PRINT"."]" ■ ; PRINT"MK'ASTLE SIEGE BV M.S." " 

2009 PEMCCRSP RIGHT ] t ELK] 

2010 PRINT' , IH . 

2039 PEMCBLIJ] CCPSR DOWN]CCPSR DOWN] 

2040 PR I NT" St'OU CONTROL THE LAST REMAINING SURVIVOR OF WTHE CASTLE > 

2049 PEMCCPSR DOWN]CCRSP DOWN] 

2050 PRINT "REMAINING WEAPON IS A PLARGE PILE OF POCKS. PIVOU MUST DROP 

2059 REMCCRSP DOWN]CCPSR DOWN] 

2060 PRINT"BISLODGE THE CLIMBING PENEMV. THE GAME IS OVER.PWHEN THE ENEM'i 
2070 PRINT"THE TOP." 

s.2‘075 REMCCRSP DOWN] C5 CRSR RIGHT] CPUR3 _ 


VOLIR ONL't 
ROCKS TO' 


ri'080 PRINT"WifiW > RESS ANV KEV. 

2090 GETKP IFKP=""THEN2090 
2100 PRINT"D»»»HTHE KEVS ARE" 

2105 REMCCLR3C5 CRSR RIGHT]CRED] 

2110 PRINT" .LEFT *. RIGHT" 

2115 REMCCPSR DOWN]C4 CRSR RIGHT]CPUP] 

2120 PRINT" OMr.'.V: .DROP ROCKS" 

2125 PEMC4 CRSP DOWN]CORN] 

2130 PRINT"PlPlPlPiF'RESS ANV KEV TO BEGIN" 

2499 GETKP:IFKP=""THEH2499 

2500 RETURN 

3000 POKER,32 : POKED,32 R=7767 D=7789 RETURN 
3500 POKER,32:POKED,32:R=7746:D=7768 PCKE7790,O■RETURN 
4000 POKER,32 POKED,29 : RO=0 DE=0:LETFR-R+44 
4500 RETURN 

5000 TE<E> = INT<8164+22*RND<0>> EH<E>=tE<E>-EL<E>=EH<E>+22 
5500 RETURN 

5999 PEMC9 CRSR DOWN][6 CRSR RIGHT][RED] 

6000 POKEEL<L >, 0 POKEEH(L> , 36 : POKEEH<L>+CG, & ■ PRINT"PlPlPlPlPlPlPJPlP*MM»»3AME i 
6010 F0RL=1 TO1000:HEXTL 

6015 REMCCLR]C4 CRSR DOWN]C5 CRSR RIGHT] 

6020 PRINT "IT , : POKE36879, 25 • PRINT "PMPlP»»»#IANOTHER GAME" 

6025 REMC2 CRSP DOWN]C9 CRSR RIGHT] 

6030 PRINT " " 

6032 REMC6 CRSP DOWN]C6 CRSR RIGHT]C BLU]' 

6035 PRINT" WWOMIMCS:. TIME" .BT 
6040 GETKP IFKP=" "THEN6040 

6050 IFKP="V"THENEN=1 DE=1 RO=l E=1 T-0 K=0■L=0 GOTO10 
606O IFKP=" N " THENP0KE36879, 27 PR I NT "31", FOKE36869,240 END 
6500 GOTO6040 

'7000 POKEEL'Q>,0:POKEEHCQ),35 POKEFR,35 POKES4,128 

7010 FORL=l TO100 : HEXTL PGKEEH<Q> , 0 POKEFR, 0 POKEFR+CO , O EH<Q.)=TE<G!> EL03 

7020 P0KES4 ■ 0 GOSCIB8000 
7500 RETURN 

8000 FR=0:R0=1 : DE=1 : POKED,43:FOPQ=1TO50 NEXTO 
sJ3b00 RETURN 


• Listing 3 — Crown and Anchor 


O REM a#*########*##** 

1 REM *CROWN A ANCHOR* 

2 REM * * 

3 REM * BV ♦ 

4 REM * * 

5 REM * MATHEW SOLLV * 

6 REM * * 

7 REM * * 

8 REM **************** 

9 GOSUB1000 : GOSUB2000 

10 PR I NT" I'M" : GGSUB3000: PR I NTAf, BP, BP, BP, B'P ,-B*, CP 

20 PR I NT" ACE BET*ii" : INPUTS lFB<0ORB>TTHEN20 

25 GOSUB4000:T=T-B GOSUB3O00 

30 PR I NT" ACK i!ii" I NPUThP‘H=>N+43 IFN<490RN>54THEN30 

35 GOSUB4000 

40 F0RL=1T03■D<L > = INT<49+6*RND<0> > IFD(L > =NTHENR=R+1 
50 POKER<L >,D(L > POKER<L >+C0,1 : NEXTL 
60 IFRO0THEN90 

70 PRINT" OMMMrZBAB LUCK" : F0RL=1 TO2000 NEXTL : IFT=0THEN100 
80 GOTO10 

90 F'P I NT" »»»M»n-JELL DONE" : FORL= 1TO200O = NEXTL : T=T+B* < R+1 > ■ R=0 : GOTO 10 
100 PR I NT" Wt'CHJ PE BROKE" 

110 PRINT" d«»»MPLAV AGAIN»»»»*[^»»»I»»»I> VXN) " 

120 GETKP •• I FKP=" " THEN 120 
130 IFKP="V"THENT=100:GOTO 10 
1 40 I FKP= " N " THENP0KE36879 ,27:PRI NT" 2E": END 
150 GOTO120 

1000 P0KE36879,8:P0KE36878,15 

1010 AP= " * . -, ,-, - 

1020 BP=" I I I I I |" 

1040 BIMB<3>=DIMP(3) : R=0 : T=100:P<1>=7814:PC2>=7822 : P(3>=7880:00=80720 
1500 RETURN 

2000 PRINT"r>**ia:ROWN AND ANCHOR" 

2010 PRINT " 

2020 PR I NT ".PITH IS GAME CONSISTS OF MTHREE DICE.VOU START PWITH A CREDIT OF X1O0W 


2030 

2040 

2045 

2047 

2050 

E" 

2060 


2090 

2490 

2500 

,3000 

3500 

400§ 


PRINT"TO GAMBLE ON THE OUT- WIOME OF THE DICE.W" 

PRINT"VOU MUST PUT VOUR BET WON ANV ONE OF THE PHICES SIDES. W" 

PRINT"»»i»MPPESS ANV KEV" 

GETKP : IFKP=""THEN2047 

PRINT"3WTHE COMPUTER THEN WTHROWS THE DICE.IF'ONEWOF THEM SHOWS THE SIB 


PRINT"VOU PICKED VOU GET 
F'R I NT " VOU GET TREBLE VOUR 
PRINT"SIDE VOU GET FOUR 
PRINT"WMiPRESS ANV KEV" 

GETKP=IFKP=""THEN2490 
RETURN 

PRINT"SW2REDIT S 
RETURN 

P0KE36876,220=FORL=1TO100=NEXT P0KE36876•O RETURN 


WDOUBLE VOUR MONEV BACKWIF TWO SHOW VOUR SIDEW" 
PHONEV BACK AND IF ALL PJTHE DICE SHOW VOURW" 
PITIMES VOUR BET BACK. W" 


■W" ,T, " 


We have inserted REMs in the lines above those in 
which Commodore control characters appear in the 
listings. These are only for your guidance and should 
not be entered. Remember that lines in some listings 
may not fit unless you use abbreviations for the BASIC 
keywords — you’ll find them in your manual 
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PROGRAM 









aped! 


CAVERS are trapped deep 
underground — and they’re 
relying on you and your rescue 
craft. 

You must steer your way 
through the tunnel, avoiding 
the stalagmites and the sides, 
into a large cavern. 

There you see the pot- 
holers signalling with a lamp, a 
flashing sprite which also 
changes shape due to a kind 
of BASIC interrupt. 

Touch the lamp with your 
craft and a bell rings, indicat¬ 
ing the first part of your mis¬ 
sion is complete. Now you and 
the rescued potholers must 
reach safety. 

This time you use the right 
hand tunnel and touch your 
craft against a sprite with the 
word “winner” written inside it. 
This records your time score 
on the table. 

Don’t touch this sprite on 
the way in — it will bejgnored 
until you have rescued the 
cavers. 

Touching any other objects 
will result in a multi-coloured 
explosion, complete with the 
sound of the blast. 

The game works with the 
joystick in port 2 and these are 
the controls: 


accelerate 


\t/ 


yf dec 


decelerate 


The fire button is used to re¬ 
start the game and to give ins¬ 
tant slow speed. 

You will find that the res¬ 
ponse to the joystick is instant, 
even though the controls in 
lines 1 to 25 are written in 
BASIC. 

As the Commodore 64 finds 
sub-routines by searching line 
numbers from zero, I placed 
this routine at the beginning 
so it finds the routine and acts 
on it quickly. 

How it works 

1-25 main joystick and control 
module 

27-35 reset memory and store 
sprites and user-defined 
graphics 

36-117 main section: 
switches on sprites, places 
them on screen and moves 
them 

118-125 theme tune music 
DATA 

130-410 user-defined graphics 
DATA 

5000-5110 top 10 time table 
— a high-score table for the 
10 best times 
7000-8750 sprite DATA 
9000-9015 bell sound effect 
10000-10020 explosion effect 
20000-25000 draw cavern 
routine 

30000-30075 winner sprite 
DATA 

40000-40100 win and display 
routine 

45000-45150 instructions 
50000-50070 routine to play 
theme music 

60000 random high-resolution 
colour routine 


CBM 64 


When typing in this listing, you’ll find REMs above 
lines containing control characters. These REMs are 
only for your guidance and should not be entered. 
And remember to abbreviate BASIC keywords — 
there’s a list in your manual. Some lines may not fit 
without abbreviations. And it’s quicker to type them 
in.. . 


^ 0 V=53248 : 3=54272: P0KE54296,15 : F0RI=ST0S+24 : POKE 1,0 : NEXT : G0T027 

1 V-53248 • POKEV+28,2 • P0KE53275,2 ■' JV=PEEK< 56320) = IFSX=0THENSX=5 

2 POKEV+28, 2 : POKEV+37, 8 : POKEV+38, 4 : FR=JVANB 16 : REM FIRE BUTTON STATUS 

3 JV=15-<JVRND15):IFJV=0THENJV=K : REM BIRECTION VALUE 

4 C=PEEK ( V+31) AND 1 : D=PEEK ( V+30 ) ANB2: IFJV* 10THENJV=K : SX=SX-1 I F37.C 1THENSX* 1 

5 IFFR=0THENS7.=2 

6 I FJV=5THENJV=K : SX=SX+1: I FSX>50THENSX=50 

7 I FJV= 1 THENV=V-Sfi: POKE2040, 208 : I FVC0THENV=0 

8 IFJV=2THENV=V+SX:POKE2040,203:IFY>255THENV=255 

9 IFJV=4THENX=X-8X:POKE2040,210:IFX<0THENX=0 

10 IFJV=8THENX=X+SX:POKE2040,209 : IFX>320THENX«320 

11 IF JV=0THENPOKE2040,208 

12 K=JV=IFB=2THENF=2:B=0:GOSUB9000 

14 G=PEEK ( V+30)ANB8■IFG=8ANBF=2THENB=0:F=0:G=0 = GOSUB9000■GOSUB40000:RETURN 

19 IFCO1THENRETURN 

20 IF < TI-RQ > <60THENC=0:RETURN 

21 GOSUB10000 = F0RW=VT0225STEP10:POKE2040,2:POKES+4,17-POKES, 127 

22 POKES+1,8:POKEV+28,3:FORZ-211T0215 = POKE2040,Z = POKES+4,129:POKES+4,6 

23 POKEV+1,W:POKES+24,15:FORT1=12TO0STEP-6:POKES+24,T1=NEXT:NEXT 

24 NEXT:X=50:V=225:B=0:POKEV+16,0:POKEV+1,V:POKEV,X:POKEV+28,2 P0KE53275,0 

25 RETURN 

27 P0K.E53281, 15 = PR I NT H 21" : CL*-" ^JSBSE Jirs:" : PR I NT" WffittHST ,TAB(13 >" 1CAVERN RESCUE 

28 GOSUB9000:POKE53280,12:GOSUB50000:GOSUB9000 

29 REM START SPRITES AT 13312(BLOCK 208) 

30 P0KE53281,15:PRINTCHR*(142):P0KE52,48:P0KE56,48 = P0KE56334,PEEK(56334 > ANB254 

31 P0KE53281, 15 : PR I NTCHR* (142): P0KE52,48 : P0KE56,48 P0KE56334, PEEK ( 56334 > ANB254 

32 POKE1,PEEK(1> ANB251=FORI=0TO511:POKEI +12288, PEEK(53248+1):NEXT 

33 POKE1,PEEK(1>0R4:P0KE56334,PEEK(56334)OR1 

34 P0KE53272,(PEEK(53272 >ANB240> + 12 

35 FORI=12800TO13015:REABA:POKEI,A:NEXT 

36 PRINT"D":POKEV+16,1:X=60:V=200 

37 FORI=13312T013837:REABA:POKEI,A:NEXT 

38 GOSUB20000:RO=0 = GOSUB40030:GOSUB45000 

80 RO=TI:POKE2043,216:POKEV+42,0:POKEV+6,40:POKEV+7,225:POKEV+21,PEEK(V+21)0R8 

81 POKEV+16, PEEK ( V+16) 0R8 •' XK=0 : C=0 : POKEV+39,0: X=50: Y-225 

82 POKEV+21,9:POKE2041,214 

83 POKEV+39,0:X=50:V=225:GOSUB20000 

84 POKE2041,INT(RNB(0)#4>+211 : GOSUB1:IFX>255THEHP0KEV+16,9 : POKEV,X-255 : G0T086 

85 POKEV+16,8 : POKEV,X 

86 POKEV+1,V:IFC=1THENC=0:GOTO90 

87 IFK=5THENK=0:GOTO80 

88 IFB=2ANBXK=5THEN90 

89 G0T084 

90 PRINT"«":POKEV+16,8:X=50:V=225:POKEV+1,V:POKEV,X:POKE2040,208:B=0:XK=0 
100 REM BATA FOR 'UBG'S 

115 F=0 : G=0 : B=0 : PRINT"MISPRESS FIRE BUTTON FOR A TRY" 

116 K=PEEK(56320> ANB16:IFK-0THEN80 

117 G0T0116 

113 REM MUSIC BATA 

120 BATA22,96,250,22,96,250,29,233,250,33,135,250,37,162,250,29,223,250 

121 BATA33,135,60,33,135,60,33,135,60,22,96,60,22,96,50,29,233,60,33,135 

122 BATA60,37,162,60,29,223,60,33,135,60,33, 135,60,33,135,200 
125 BATA-1,-1,-1 

130 REM STALIGTITES 

135 BATA255,255,255,253,253, 163, 163,-131 
140 BATA255,253,189,139,157,155,139,136 
150 BATA255,255,239,231,231,199,135,3 

162 BATA92,142,188,142,124,76,76,4 

163 BATA255,127,127,63,63,31,15,15 

164 BATA255,254,254,252,252, 248, 240,240 

165 BATA15,7,7,3,3,1,1,1 

166 BATA240,224,224,192,192,128,128,123 
170 REM STALIGMITES 

180 BAT A131, 163, 163, 253, 253, 255,255,255 
190 BATA136,139,155,157,189,189,253,255 
200 BATA3,135,199,231,231,239,255,255 

212 BATA4,76,76,124,142,138,142,92 

213 BATA15,15,31,63,63,127,127,255 

214 BATA240, 240,243,252,252, 254,254,255 

215 BATA1,1,1,3,3,7,7,15 

216 BATA128,128,128,192,192,224,224,240 
220 REM BRICK'S FOR WALLS 

230 BATA46,46,46,0,58,58,53,0 

260 BATA62,62,62,0,54,54,54,0 

265 BATA0,126,126,126,0,30,30, 30 

270 REM LEFT HAND WALL 

280 BATA’255,240, 254,252,192,243, 254,252 

290 BATA255,255,255,248,240,192,255,255 

320 REM RIGHT HANB WALL 

330 BATA63,127,31,15,31,63,127,255 

340 BATA15,31,63,127,255,255,127,63 

370 REM GIRBERS 

330 BATA255,255,42,85,162,65,255,255 
390 BATA255,255,65,162,85,42,255,255 
400 BATA192,240,120,120,60,15,3,3 
410 BATA3,3,15,60,120,120,240,192 

2016 POKEV+21,3:POKE2041,214:POKEV+40,0:POKEV+2, 70:POKEV+3,50 

4999 REM SCORE TABLE 

5000 IFRO=0ORTTC8THENRETURH 

5005 T7=2000:TT=2000-TT:Z1=0:F0RX1-1T018 : IFTT>TT(X1>THENZ1-X1:X1=11 
5010 NEXT:IFZ1-0THENRETURN 

5020 INPUT"HXHENTER NAME";N*=IFLEN(N*>>20THENN*=LEFT*(NS,20> 

5040 IFZ1=10THEN5060 

5050 F0RX1=9T0Z1STEP-1 : TT(X1+1>=TT(XI> : TT*(X1+1>=TT$(X1> : NEXT 


Will you survive to 
rescue the cavers? 
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5060 TT<Z1>=TT ; TT*<Z1>=N* 

5080 PRINT"ri"TAB(6> "!>TTIME TABLE (SECONDS)" 

5090 FQRX1=1TO10 

5095 PRINT"W"; XIJTAB(10)1NT((T7-TT(X1)>#100>/100;TAB(23>;TT$CX1> 

5100 NEXT 

5110 PR I NT" MFRESS A KEV TO RESTART" : POKE 198,0 : WAIT198, 1 : POKE 198, Q ■ RETURN 
6999 REM SPRITE DATA PLANE FORWARD 
,0,0,0,0,0,0 


7000 

DATA 

0 , 0 

, 0 , 

0,0, ( 

7005 

DATA 

0 , 0 

, 0 , 

36 

7010 

DATA 

0 , 0 

, 24 

, 0 

7015 

DATA 

0 , 12 

:6 , 0 

, 0 

7020 

DATA 

66 , e 

1 , 25! 

5 , 2 ; 

7025 

DATA 

255 , 

64 , 

126 , 

7030 

DATA 

0 , 60 , 0 

, 0 

7035 

DATA 

60 , £ 

1 , 0 

, 66 

7040 

DATA 

0 , 0 

, 129 

, 0 

7045 

DATA 

0 , 0 

, 0 , 

0 

7055 

DATA 

0 , 0 



7060 

DATA 

0 , 0 

, 0 , 

0 

7065 

DATA 

0 , 0 

, 0 , 

0 

7070 

DATA 

0 , 0 

, 0 , 

0 

7075 

DATA 

0 , 0 

, 0 , 

32 

7099 

REM SPRITE 

DATA I 

PLANE 

7100 

DATA 

0 , 0 

, 0 , 

0 

7105 

DATA 

0 , 0 

, 0 , 

0,0, ( 

7110 

DATA 

0 , 12 

:8 , 0 

, 0 

7115 

DATA 

128 , 

0 , 0 

, 12? 

7120 

DATA 

0 , 0 

, 192 

, 15 

7125 

DATA 

192 , 

224 , 

72 , 

7130 

DATA 

255 , 

255 , 

255 . 

7135 

DATA 

255 , 

254 , 

127 . 

7140 

DATA 

252 , 

0 , 1, 


7145 

DATA 

0 , 0 

, 0 , 


7150 

DATA 

0 



7155 

DATA 

0 , 0 

, 0 , 

0 

7160 

DATA 

0 , 0 

, 0 , 

0 

7165 

DATA 

0 , 0 

, 0 , 

0 

7170 

DATA 

0 , 0 

, 0 , 

0 

7175 

DATA 

0 , 0 

, 0 , 

32 

7200 

REM SPRITE 

DATA 1 

PLANE 

7400-DHIA 

0 , 0 

, 0 , 

0 

7405 

DATA 

0 , 0 

, ,0 , 

0 

7410 

DATA 

0 , 0 

, 0 , 

1 

7415 

DATA 

0 , 0 

, 1 , 

0 

7420 

DATA 

0 , 3 

, 7 , 

192 

7425 

DATA 

7 , 4 

, 72 

, 15 

7430 

DATA 

127 , 

255 , 

255 

7435 

DATA 

255 , 

255 , 

127 

7440 

DATA 

255 , 

63 , 

255 , 

7445 

DATA 

15 , 248 , 

0 , 0 

7450 

DATA 

0 , 0 

, 0 , 

0 

7455 

DATA 

0 , 0 

, 0 , 

0 

7460 

DATA 

0 , 0 

, 0 , 

0 

7465 

DATA 

0 , 0 

, 0 , 

0 

7470 

DATA 

0 , 0 

, 0 , 

0 

7475 

DATA 

0 , 0 

, 0 , 

32 

7999 

REM SMALL SPRITE 

EXPLi 

8000 

DATA 

0 , 0 

, 0 , 

0 

8005 

DATA 

0 , 0 

, 0 , 

0 

8010 

DATA 

0 , 0 

, 0 , 

0 

8015 

DATA 

0 , 0 

, 0 , 

0 

8020 

DATA 

0 , 0 

,’ 0 , 

16 

8025 

DATA 

0 , 0 

, 130 

1 , 0 

8030 

DATA 

0 , 84 , 0 

, 0 

8035 

DATA 

40 , 0 , 0 

, 56 

8040 

DATA 

0 , 0 

, 84 

, 0 

8045 

DATA 

0 , 130 , 0 

i , 0 

8050 

DATA 

16 , ( 

3 , 0 

, 0 

8055 

DATA 

0 , 0 

, 0 , 

0 

8060 

DATA 

0 , 0 

, 0 , 

0 

8065 

DATA 

0 , 0 

, 0 , 

0 

8070 

DATA 

0 , 0 

, 0 , 

0 

8075 

DATA 

0 , 0 

, 0 , 

32 


8199 REM LARGER SPRITE EXPLOSION 

8200 DATA 0 , 0 , 0 , 0 
0 ,. 0 , 0 

56 , 16 , 0 
128 


8205 DATA 0 , 
8210 DATA 12 
8215 DATA 1 , 
8220 DATA 145 
8225 DATA 0 , 
8230 DATA 55 , 
8235 DATA 8 , 
3240 DATA 0 , 


0 


82 


8245 DATA 1 , 
8250 DATA 16 
8255 DATA 0 , 
8260 DATA 0 , 
8265 DATA 0 , 
3270 DATA 0 , 
3275 DATA 0 


0 


32 


8399 REM SPRITE EXPLOSION 


1 , 0 

141 

6 , 39 , 0 
243 , 0 , 249 
128 , 243 , 252 
103 , 251 , 56 
23 , 156 , 30 
220 , 31 , 6 
78 , 101 , 184 
141 , 112 , 18 
96 , 57 , 30 
13 , 70 , 224 
113 , 192 , 7 
64 , 3 , 252 
1 , 240 , 0 


8400 DATA 0 
3405 DATA 113 
8410 DATA 0 
8415 DATA 28 
3420 DATA 248 
8425 DATA 64 
3430 DATA 79 
8435 DATA 110 
8440 DATA 188 
8445 DATA 102 
8450 DATA 59 , 

8455 DATA 224 
8460 DATA 12 , 

8465 DATA 254 
8470 DATA 0 
3475 DATA 0 
8500 REM SPRITE LARGE EXPLOSION 
8600 DATA0,0,0,0,0,0,0,16,0,0,3,0,4,16 
8610 DATA0,3,2,64,1,56,128,12,255,144 
8620 DATA1,238,40,5,151,0,11,121,0,1 
8630 DATA183,0,25,214,96,0,236,43,6,24 
8640 DATA152,3,98,0,8,51,0,0,96,123,0 
8650 DATA64,0,0,0,0,8,0,0,8 
3699 REM SPRITE GROUND EXPLOSION 
8700 DATA0,0,0,0,0,0,0,8,0,0,24,0,0,24 
8710 DATA0,0,48,0,0,170,0,0,68,0,3,110 
8720 DATA0,4,176,192,0,166,128,3,105 
8730 DATA128,0,51,0,5,60,0,1,154,128,2 
8740 DATA124,0,0,186,0,0,92,0,0,56 
8750 DATA0,0,60,0,0,24,0,0 

8999 REM BELL 

9000 S=54272 : POKES+1, 130 : P0KES+5,9 ■ POKES+15,30 : POKES+24, 15 = FORL=0TO1 : POKES+4,21 
9010 FORlJ= 1 TO 150 • NEXT ' POKES+4, 20 : FORIJ1 = 1TO20 = NEXT: NEXT 

9015 F0RU=ST0S+24:POKEU,0=NEXT:RETURN 
10000 REM BANG 

10010 POKES+1,6:POKES+24,15:POKES+4,129=F0RT=15T08STEP-.5:POKES+24,T:FF=FP.Ev0> 
10020 NEXT■POKES+24,0:POKES+4,0:RETURN 

20000 a$=" L ' j i ii M n i' r rrnT Ti rnrnTTTi n i'itttttttti" 

20003 POKE53270,PEEK C 53270)OR16 
20005 GOSUB60000 

20010 B$= ■»•••••••••••••••••••••••••••••••••••••• 

20013 POKEV+28,2=POKEV+21,11 : POKEV+2,25:PQKEV+3,63 : POKEV+40,0 

20015 c$=":s»»iM*»Mi*i/+ t:e>iai i+ i*:« i+7" 

20020 PRINT"8"At:PRINTBt, CS 

20030 print m ww";ai*+"mi i — —i i——* I— ****** I I--I— 

20035 GOSUB60000 : PRINTA1 t+" I -I -I +1+ -I ♦ -> - 1 " 

20040 GOSUB60000 : PRINTA1 f+" I ♦ I -I Will I I M8 ♦ -I T>" 

20050 GOSUB60000:PRINTA1*+"# ♦ I IMI* "Tl ":PRINT"I" 

20054 PRINT"*" : GOSUB60000 : PRIHTAlt+"\ I* / l+TH+TII ♦ I 

20055 GOSUB60000 : PRINTA1$+"* J XT ♦" 

20060 GOSUB60000 : PRINTAlt=" I /N X\ 

20070 GOSUB60000: PR I NTA 1t+" K K I r | \rr-’ ' -> m. '• '• I ' " 

20080 PR I NT" =*******+***************+*+**+**** *** ***** 


T—“II♦♦***■ 


***" 
****" 
,***" 

•••••••••••* ,***" 

1111111 t nr* x***'' 
“i i*i— “*i*i_r“-i*" 

_.i :?ii+in -i 

I 1 '■ I •- IL 


36 

131 , 216 , 
) , 0 , 20 
) , 146 , 0 


20090 PRINT"***** 

20100 PRINT"***** 

20110 PRINT"***** 

20120 PRINT"***** 

20130 PRINT"***** 

20140 PRINT" -I “ 

20160 PRINT"-I 
20170 PRINT"M 
25000 RETURN 

29999 REM BANNER SPRITE 

30000 DATA 255 , 255 , 255 , 128 

30005 DATA 0 , 1 , 170 , 0 

30010 DATA 1 , 170 ,0,1 
30015 DATA 148 , 128 , 1 , 123 

30020 DATA 164 , 1 , 128 , 180 

30025 DATA 1 , 128 , 44 , 1 
30030 DATA 128 , 0 , 1 , 128 
30035 DATA 36 , 1 , 128 , 52 
30040 DATA 1 , 128 , 44 , 1 
30045 DATA 128 , 0 , 1 , 128 
30050 DATA 7 , 61 , 128 , 4 
30055 DATA 37 , 128 , 6 , 61 
30060 DATA 128 , 4 , 41 , 128 
30065 DATA 7 , 37 , 128 , 0 
30070 DATA 3 , 128 , 0 , 1 
30075 DATA 255 , 255 , 255 , 32 
40000 K=5:XX=0:C=0 : D=0 : F-0 : G=0 

>40005 XK=0 : PR I NT" ZI««««BM««?>ili»i»*rVOU WIN" 

40010 TT=I NT((TI-RO)/6)/10 
40015 IFTT<20THENPRINT'LT' : RETURN 
40020 PR I NT" «»»»»»»»»»i»IT I ME= " > TT 

40030 P0KE53275,7 : POKEV+21,13: POKE2040,209 = POKE2042,216: POKE2041,213 = POKEV+39,0 
40040 XX=XX+1:POKEV+4,30:POKEV,80:POKEV+1,100:ROKEV+5,100=POKEV+411 POKEV+29,4 
40045 GOSUB9000 

40050 FORQ=100TO255•POKEV+16,0 
40060 POKEV+4,Q-50:POKEV,Q:NEXT 

40070 POKEV+16, 1 : FORQ1=QTO305 : POKEV, Q1-255 '■ POKEV+4, Q1-50 = NEXT 

40080 FORQ= 100TO225 : POKEV+1, Q: POKEV+5, Q: NEXT : IFXXO2THEN40040 

40090 X s 50:V=225:D=0:POKEV+16,0:ROKEV+1,V:POKEV, X:POKEV+21,0:P0KE53275,0 

40100 GO3UB5000:RESTORE■GOSUB50000:GOSUB9000:RETURN 

45000 P0KE53281,15 : PR I NT "IKIJI INSTRUCTIONS V/H" : POKE 198,0 

45010 WAIT 198,1:GETFt:IFFt="H"THEHRETURN 

45020 I FFtO " V " THEN45000 

45030 POKEV+21,T3=PRINT‘TIFEOPLE ARE TRAPPED IN A CAVE AND NEED" 

45040 PRINT"JsIHESCUE. VOU ARE SENT TO RESCUE THEM IN" 

45050 PR I NT" 30V0UR MAGNETIC PULSE RESCUE CRAFT (■MPRCH)" 

45055 PRINT"«JTHEV ARE FLASHING A SIGNAL,GO AND" 

45060 PRINT"BJRESCUE THEM AND RETURN TO BASE.BASE IS" 

45070 PRINT".W3THE WINNER SVMBAL.AVOID ALL THE ROCKS." 

45080 PRINT"ffiPLACE JOV-STICK IN F'0RT#2" 

45090 PRINT"WJP!3-iMPRCU GO'S UP 

45100 PR I NT " 1LEFTJ3—BMPRC13 GO'S LEFT 
45110 PRINT"1RIGHT;3-«MPRC;3 GO'S RIGHT 

45120 PRINT"iUP AND TO THE LEFTJ3-ACCELERATE 

45130 PR I NT "MOWN AND TO THE RIGHT13-DECELERATE 
45135 PRINT"MOWN-LEFT & UP-RIGHTJ3—BRAKE 

45140 PRINT"IFIRE BUTTON GIVES!}-SLOW SET SPEED 

45145 PR INT" 134 BELL RINGS WHEN PICK-UP MADE" 

45150 XX=0:GQSUB40030:XX=0:GOSUB40030:RETURN 
50000 REM MUSIC ROUTINE 

50010 VI=54296:W1=54276:A1=54277:HF=54273:LF=54272:S1=54278■PH=54275 = PL=54274 

50020 POKEV1,111:POKELF+23,1:POKEW1,65:POKEA1,190:POKEPH,15:ROKEPL,15 

50030 READH1,L1,D1:IFH1=-1THENRETURN 

50040 POKEHF,H1:POKELF,L1 

50050 FORX1=D1-50TOD1-20:POKES1,136=NEXT 

50060 FORT 1 = 1TOD1:NEXT = POKEHF,0 = POKELF,0:POKEW1,0 

50070 GOTO50020 

60000 A1t=MIDt(CLt,INT(RND(0 > *7 >+1,1):RETURN 
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ONE OF the 

separates the Commodore 64 
from the “also rans” is its large 
memory. While it is true that 
only about 38K is accessible 
from BASIC, with the aid of a 
few short routines, you will 
have ready access to around 
60 K. 

First Let me ask some 
questions: 

• Are you fed up with convert¬ 
ing your machine code 
routines or blocks of data into 
lengthy BASIC loaders (similar 
to listing 2)? 

• Are you interested in simple 
animation or do you wish to 
have access to several 
screens of data? 

• Do you wish that you had a 
few kilobytes of protected 
data area for your adventure 
or simulation? 

• Do you want to move blocks 
of data around rapidly and 
easily? 

• Are you just an enthusiastic 
dabbler? 


these questions then read on. 

Before launching into des¬ 
cription of the routines, it is 
necessary to disducss how 
RAM is organised and con¬ 
trolled on the 64. 

Consider Figure 1 . The only 
obvious parts of RAM avail¬ 
able for use are the BASIC 
area and the spare area. So 
where is the rest of the RAM? 


The answer, hiding behind the 
ROMs and the I/O areas. Any 
address in these areas is 
shared by both RAM and ROM 
or I/O. The crunch is that a 
value POKEd to an address 
will be put into the RAM but a 
PEEK will reflect the value in 
ROM, not RAM. 

Fortunately, the 6510 pro- 


''hexadecimal 

decimal 

size of RAM 

A 

usage 

$0000-$03FF 

0-1024 

1024 

system 

$0400-807 FF 

1024-2047 

1024 

video memory 

$0800-$9FFF 

2048-40959 

38912 

BASIC area 

$A000-$BFFF 

40960-49151 

8192 

BASIC ROM 

$C000-$CFFF 

49152-53247 

4096 

spare RAM 

$D000-$DFFF 

53248-67343 

4096 

I/O colour RAM 

^$E000-$FFFF 

57344-65535 

8192 

Kernal ROM ^ 


• Figure 1 — Commodore 64 general memory map 


cessor has an input/output 
control register at location 1. 
This location controls a whole 
handful of functions, as Figure 
2 indicates. By setting the cor- 
> ROM area 
bit will be 
RAM will 
become available for use. If 
bit is set, the ROM is 
switched back in. 

S \ 

it function 

switch for basic ROM 
switch for Kernal ROM 
switch for I/O area 
cassette write line 
cassette switch sense 
cassette motor control 

_✓ 

• Figure 2 — the function of 
location 1 

Warning: Any attempt to 
switch out ROM by POKEing 
values into location 1 from 
BASIC will cause the machine 
to crash. 

The routines described here 
use the switching out of ROMs 
to give you easy access to 
about 58K from BASIC. 

Listing 1 gives the source 
code for the routines. I’ve 
included this since you may 
prefer to extract portions or 
modify it to suit your own 
purposes. 

The first routine is called 
Blocksave. This routine will 
SAVE a specified block of 
memory to cassette or disc. 
Due to certain problems with 
saving with the interrupts dis¬ 
abled, the routine will not 
SAVE the block behind $D000 
to $FFFF. The syntax is 
simple: 

SYS 49152 “filename”, 
device,sa,start address,end 
address 
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where Device is 1 for cassette 
or 8 for disc, sa = 2 

As an example, to SAVE the 
BASIC ROM to disc use: 

SYS 49152 “BASIC 
ROM”,8,2,10*4096,12*4086-1 

Location 1000 is used as a 
flag to determine whether you 
want to save the RAM under 
the BASIC ROM or not A zero 
value will leave the ROM 
alone, a non-zero value will 
switch the ROM out 
Hence, if you precede the 
above example with 
POKE1000,1 then you will 
SAVE the RAM under the 
ROM, not the ROM. You will, 
however, get a LOAD error 
when you reload the saved 
RAM. Unless you have pro¬ 
blems with your cassette, you 
can ignore the error. 

Note: Any programs saved 
with blocksave must be loaded 
using the command: 

LOAD””,device,1 
otherwise it will not LOAD 


into the correct place. 

As mentioned earlier, you 
cannot PEEK the ROM areas. 
The next routine, named 
Peekall, will do this job. The 
syntax is: 

SYS 49155,address 
the contents of the address 
will be returned in location 
998. This routine will work on 
all areas 

The RAM under the ROMs 
offers great possibilities as vir¬ 
tual storage for animation or 
databases. The next com¬ 
mand, Blockmove, is included 
to assist such applications 
Quite simply, blockmove will 
take a specified slab of 
memory contents and put it at 
a specified location. The syn¬ 
tax is: 

SYS39158,sa,fa,da 
where sa is the start address 
of the block 

fa is the finish address of the 
block 

da is the destination 
address 


Demonstrations 1 and 2 

use this command to show 
you how to create multiple 


screens for data or animation. 
As with blocksave, a flag is 
available to decide which 


( — " ^ 

10 BM=49158:FL=49161:SN=1024:CL-55296 

20 REM SELECT RAM BEHIND KERNflL ROM FIND SET FLFlG TO SWITCH OUT ROM 

30 RR=14*4096:POKES96,0 

40 REM FILL EIGHT SCREENS WITH CHARACTERS 

50 FOR 1=1T08 

60 BL=RA+(I-1)♦l000 

70 SVS FL,BL,BL+1000,I 

80 NEXT 

80 PRINT CHRf(147) 

100 REM DISPLAY EACH SCREEN IN SEQUENCE WITH RANDOM COLOURS 

110 F0RI=1T08 

120 BL=RA+ <I-1)#1000 

130 SYS FL .■ CL , CL+1000, RND (1 > * 16 

140 SYS BM,BL,BL+1000,SN 

150 NEXT 

160 C=C+1:IFCC10THEN100 

170 REM SET UP EIGHT DIFFERENT SCREENS BEHIND THE KERNAL ROM 
130 FOR 1=1T08 

190 PRI NT CHR*<147);:Q$=" SCREEN#"+STR$ CI) 

200 FOR J-1 TO100:PRINTSPC<1)0*;:NEXT 
210 BL=RA+ <I-1)#1000 
220 SYS BM,SN,SN+1000,BL 
230 NEXT 

240 PRINT CHR$<147) 

250 REM DISPLAY THEM IN SEQUENCE 

260 SYS FL,CL,CL+1000,1 

270 F0RI=1T08 

280 BL=RA+<1-1)#1000 

290 SYS BM,BL,BL+1000,SN 

300 NEXT 

310 C=C+1:IFCC20THEN260 
320 REM 

330 REM DEMONSTRATION OF HOW EIGHT SCREENS OF DATA CAN BE 
340 REM STORED AND RECALLED FROM THE RAM BEHIND THE 
350 REM KERNAL ROM 

READY. 

V___ J 

• Demonstration 1 
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ROM is switched out Location 
996 contains this flag. A zero 
value will switch out the Ker- 


• Demonstration 2 


nal ROM and a non zero value 
will switch out the BASIC 
ROM. This has particular 


implications if you plan to 
move data to the colour RAM. 

If you use the RAM behind 
the Kernal ROM for this pur¬ 
pose, you cannot move it to 
the colour RAM since both are 
switched out simultaneously. 
Demonstration 2 keeps the 
colour data behind the BASIC 
ROM to prevent this problem. 

The next command, blockfill, 
fills a specified area with a 
specified character. This is 
useful for zeroing a block of 
RAM or filling the colour RAM 
with a specified colour. The 
syntax is: 

SYS 49161,sa,fa,ch 
where sa is the start of the 
block affected 
fa is the finish of the block 
ch is the character 

The final command, char- 
move, is a specified form of 
blockmove. This command will 
download the normal upper 
case set of characters (256 
characters in all) to a specified 


address. This will be of value if 
you plan to redesign your 
character set. The syntax is: 

SYS 491, start address of 
destination. 

All addressesare to be input 
as decimal values All 
Parameters can be input as 
values, variables or 
expressions. 

Listing 2 gives a BASIC 
loader for the routines Once 
you have typed it in, SAVE it, 
since, while a crude checksum 
is included, you could make an 
error. Once it is up and run¬ 
ning, why not save it using 
Blocksave? Like this: 

SYS 49152 “name”,dev,sa, 
49152,49527 

Demonstrations 1 and 2 
give an idea of the possibilities 
of these routines. 

Try them and enjoy. 


5 REM CRVS ON]CWHT]C8 CRSR RIGHT]CELK]CCRSR DOWN]CIO CRSR LEFT] 

ie "iiiiaiiiiii 

15 REM CRVS ON] CCOM+9] CRVS OFFH? CRSR RIGHT] CBLK] CCRSR DOWN ] C 10 CRSR LEFT] 

20 Af=A*+"Sc: aimiiiiii 

25 REMCRVS ON]CCOM+5]CRVS OFF]CCRSR DOWN]CIS CRSR RIGHT] 

30 A$=A$+"3C3 • HBBBBBBflflllBBI 

35 REMCRVS ON]CCRSR DOWN]C17 CRSR LEFT] 

40 R*=R$+ a. •••!•!• 'I'lBBBBBBBBBBBBBBBBI 

45 REMCRVS ON]CCOM+5]CRVS OFF]CCRSR DOWN]C13 CRSR LEFT] 

50 R*=R*+":n ^4r«iaiiaiaaaflBBai" 

55 REMCRVS ON]CWHT]CRVS OFF3C3 CRSR RIGHT]CBLK]CCRSR DOWN]C13 CRSR LEFT] 

60 BM" '1BBBBBBBBBI 

70 Bt=Bt+"X\ ''•PMMiBM fJBBBBBBBBBI" 

80 B#=Bf+"«3 vO'lBBBBBBBaBBBBI" 

30 B*=B$+ at • •••••• ^IBBBBBBBBBBBBBBBBI 

100 B$=BS+";n m fllBBBBIBBBBBIBI 

110 30=1024•CL=55296 : SB=14*4096 : CB=10*4096 BM=49158 
120 REM USE AREA BEHIND KERNAL ROM FOR GRAPHICS DATA 
130 REM USE AREA BEHIND BASIC ROM FOR COLOUR DATA 
140 REM DRAW.AND SAVE 24 SCREENS 
150 FORI=0TO12 

160 PR I NT CHR* < 147 ) TAB < I *2 > At 
170 BS=400*I 

180 P0KE396,0 : SVS BM, SC, SC+200.. SB+BS 

190 P0KE996,1 SVS BM,CL,CL+200,CB+BS 

2O0 BS=BS+2O0 

210 PRINT" IT TAB <I*2+1)B t 

220 SVS BM,SC,SC+200,SB+BS 

230 SVS BM,CL,CL+200,CB+BS 

240 NEXT PRINT CHR*Cl47> 

250 BS=0 F0RI=0T022 

260 REM DISPLAV SCREENS IN SEQUENCE AT A SPEED DETERMINED BV LINE 290 

270 POKE996,0 : SVS BM,SB+BS,SB+BS+200,SC 

280 P0KE996,1:SVS BM,CB+BS,CB+BS+200,CL 

290 F0RD=1T030 NEXT 

300 BS=BS+200:NEXT 

310 GOTO250 

READV. 
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Programming 


J CBM 64 


10 

TEMPSTORE 

= 

999 

20 

PEEKVAL 

- 

998 

30- 

SAVEFLAG 

s 

1000 

40 

CHKCOM 

S 

#AEFD 

58 

FRMNUM 

as 

#AD 8 A 

68 

GETADR 

= 

#B7F7 

70 

SAVER 

= 

SE15F 

88 

SLPARA 

s 

#E1D4 

90 

*=#C000 



100 

! 



110 

! 



120 

J1 

JMP 

BLOCKSAVE 


END OF BLOCK, CHARACTER 


ADDRESS, FINISH ADDRESS"-.' ' 8V§ 49152 , DEVICE, SA, START 

130 ' DEVICE ...1 FOR CASSETTE, 8 FOR DISK22 ! SA...2 

140 ! POKE 1000,0...ASSUMES NORMAL RAM 

130 ! POKE 1000,1...SWITCHES OUT BASIC ROM 
180 ! 

170 ! 

180 32 JMP PEEKALL. 

190 ! SVS 49153,ADDRESS...PEEKS ANV LOCATION 
200 ! 

210 ! 

220 J3 JMP BLOCKMOVE 

1 4 1 I SVS 49158 ' ST|:,RT °F BLOCK, END OF BLOCK, START OF DESTINATION 

250 ! 

260 J4 

270 ! SVS 49161. 

280 ! 

290 ! 

300 J5 JMP CHARMOVE 

310 ! SVS 49164, START OF DESTINATION 
320 ! 

330 ! 

340 BLOCKSAVE 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 

510 CONT 
520 
530 
540 
558 
560 ! 

570 ! 

580 PEEKALL 
590 
600 
610 
620 
630 


JMP BLOCKFILL 
START OF BLOCK, 


JSR SLPARA 
JSR PARAMETER 
LDA #14 
PHA 

LDA #15 
PHA 

JSR PARAMETER 
LDX #14 
LDV #15 
PLA 

STA #15 
PLA 

STA #14 
LDA SAVEFLAG 
BEQ CONT 
LDA #54 
STA #01 
LDA ##14 
JSR SAVER 
LDA #55 
STA #01 
RTS 


JSR PARAMETER 
LDA #14 
STA #FB 
LDA #15 
STA #FC 
LDV #0 


640 

LDA 

#01 

650 

STA 

TEMPSTORE 

660 

AND 

#248 

670 

SEI 


680 

STA 

#01 

690 

LDA 

<$FB),V 

700 

STA 

PEEKVAL 

710 

LDA 

TEMPSTORE 

720 

STA 

#01 

730 

CL I 


740 

RTS 


758 ! 



760 ! 



770 BLOCKMOVE 

JSR 

PARAMETER 

788 

LDA 

#14 

798 

STA 

#FB 

800 

LDA 

*15 

810 

STA 

*FC 

820 

JSR 

PARAMETER 

830 

LDA 

*14 

840 

STA 

990 

850 

LDA 

*15 

868 

STA 

991 

870 

JSR 

PARAMETER 

880 

LDA 

*14 

898 

STA 

*FD 

900 

LDA 

*15 

910 

STA 

*FE 

928 

LDA 

*01 

930 

STA 

TEMPSTORE 

948 

AND 

#248 

950 

SEI 


960 

STA 

*01 

970 

LDV 

#0 

980 AGAIN 

LDA 

<*FB),V 

990 

STA 

< #FD),V 

1000 

LDA 

*FB 

1010 

CLC 


1020 

ADC 

#1 

1030 

STA 

*FB 

1048 

LDA 

*FC 

1050 

ADC 

#0 

1060 

STA 

*FC 

1070 

LDA 

*FD 

1080 

CLC 


1090 

ADC 

#1 

1100 

STA 

*FD 

1110 

LDA 

*FE 

1120 

ADC 

#0 

1130 

STA 

*FE 

1140 

LDA 

*FB 

1150 

CMP 

990 

1160 

BNE 

AGAIN 

1170 

LDA 

*FC 

1180 

CMP 

991 

1190 

BNE 

AGAIN 

1200 

LDA 

TEMPSTORE 

1210 

STA 

*01 

1220 

CL I 


1230 

RTS 


1240 ! 




!DESTINATION 


1250 ! 


1260 BLOCKFILL 

JSR PARAMETER 

1270 

LDA *14 

1280 

STA *FE 

1290 

LDA *15 

1300 

STA *FC 

1310 

JSR PARAMETER 

1320 

LDA *14 

1330 

STA 990 

1340 

LDA *15 

1350 

STA 991 

1360 

JSR PARAMETER 

1370 

LDA *14 

1380 

STA *FD 

1390 

LDV #00 

1400 AGAIN2 

LDA *FD 

1410 

STA <#FB>,V 

1420 

LDA *FB 

1430 

CLC 

1440 

ADC #1 

1450 

STA *FB 

1460 

LDA *FC 

1470 

ADC #8 

1480 

STA #FC 

1490 

LDA *FB 

1500 

CMP 990 

1510 

BNE AGAIN2 

1520 

LDA *FC 

1530 

CMP 991 

1540 

BNE AGAIN2 

155G 

RTS 

1560 ! 


1570 ! 


1580 CHARMOVE 

JSR PARAMETER 

1590 

LDA *14 

1600 

STA *FB 

1610 

LDA *15 

1620 

STA *FC 

1630 

LDA #00 

1640 

STA *FD 

1650 

LDA #*D0 

1660 

STA *FE 

1670 

LDA 56334 

1680 

AND #254 

1690 

STA 56334 

1700 

LDA *01 

1710 

AND #251 

1720 

STA *01 

1730 

LDV #0 

1740 AGAIN3 

LDA <*FD),V 

1750 

STA <*FB), V 

1760 

CLC 

1770 

LDA *FE 

1780 

ADC #1 

1790 

STA *FB 

1800 

LDA *FC 

1810 

ADC #0 

1820 

STA *FC 

1830 

CLC 

1840 

LDA *FD 

1850 

ADC #1 

I860 

STA *FB 

1870 

LDA *FE 

1880 

ADC #0 

1890 

STA *FE 

1900 

LDA *FD 

1910 

BNE AGAIN3 

1920 

LDA *FE 

1930 

CMP #*D 8 

1940 

BNE AGAIN3 

1950 

LDA *01 

I960 

ORA #04 

1970 

STA #01 

1980 

LDA 56334 

1990 

ORA #1 

2000 

STA 56334 

2010 

RTS 

2020 ! 


2030 ! 


2040 PARAMETER 

JSR CHKCOM 

2050 

JSR FRMNUM 

2060 

JSR GETADR 

2070 

RTS 

READY. 



source code of routines. Only for those who 
have an assembler program 


1 DATA76,15,192,76,59,192,76,94,192,76,211,192,76,20,193,32,212,225,32,110 

2 DATA193,165,20,72,165,21,72,32,110,193,166,20,164,21,104,133,21,104,133 

3 DATA20,173,232,3,240,4,169,54,133,1,169,20,32,95,225,169,55,133,1,96,32 

4 DATA110,193,165,20,133,251,165,21,133,252,160,0,165,1,141,231,3,41,248,120 

5 DATA133,1,177,251,141,230,3,173,231,3,133,1,88,96,32,110,193,165,20,133 

6 DATA251,165,21,133,252,32,110,193,165,20,141,222,3,165,21,141,223,3,32,110 

7 DATA193,165,20,133,253,165,21,133,254,173,228,3,240,8,169,254,141,229,3 

8 DATA76,147,192,169,248,141,229,3,165,1,141,231,3,45,229,3,120,133,1,160 

9 DATA0,177,251,145,253,165,251,24,105,1,133,251,165,252,105,0,133,252,165 

10 DATA253,24,105,1,133,253,165,254,105,0,133,254,165,251,205,222,3,208,219 

11 DATA165,252,205,223,3,208,212,173,231,3,133,1,88,96,32,110,193,165,28,133 

12 DATA251,165,21,133,252,32,110,193,165,20,141,222,3,105,21,141,223,3,32 

13 DATA110,193,165,20,133,253,160,0,165,253,145,251,165,251,24,105,1,133,251 

14 DATA165,252,105,0,133,252,165,251,205,222,3,208,232,165,252,205,223,3,208 

15 DATA225,96,32,110,193,165,20,133,251,165,21,133,252,169,0,133,253,169,208 

16 DATA133,254,173,14,220,41,254,141,14,220,165,1,41,251,133,1,160,0,177,253 

17 DATA145,251,24,165,251,105,1,133,251,165,252,105,8,133,252,24,165,253,105 

18 DATA1,133,253,165,254,105,0,133,254,165,253,208,222,165,254,201,216,208 

19 DATA216,165,1,9,4,133,1,173,14,220,9,1,141,14,220,96,32,253,174,32,138 

20 DATA173,32,247,183,96 
100 F0RI=49152 TO 49527 

110 READ X: T=T+X: POKEI,X ; NEXT 

120 IF T O 49676 THEN PR INT"ERROR IN DATA" 

130 REM 

140 REM MEMORY MANAGEMENT ROUTINES FOR THE COMMODORE 64 
150 REM A E WEBB 1984 


• Listing 2 • 
BASIC 


• the same program which you can type in using 
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Software reviews 


CBM 64 


Smile, th 
get serious 




Turtle Jump 

£6.99 


Romik, 272 Argyll Ave, Slough 
Berks 


r 


Fire Ant £7.95 


Mogul, PO Box 4BT, 35-37 
Wardour St, London W1A 4BT 
I’m a fast reader, but I was only 
halfway through the crammed- 
to-bursting instruction screen 
when it moved on. There’s 
another chance when the 
demo has finished but a little 
longer reading time and better 
spacing would be nice. 

The program, happily, is 
much better than its original 
impression. As the sole surviv¬ 
ing soldier ant, you must res¬ 
cue your Queen, held hostage 
on Screen 8 by Scorpions. 
Success brings missions to 
further Scorpion colonies. At 
first glance, it might seem a 
Pacman variation — the 
screens are visible mazes with 
objects scattered round, pat¬ 
rolling Scorpions lay eggs, and 
randomly change to purple, 
double-speed frenzy. 

Closer inspection reveals 
yellow gates and force-fields 


blocking your way and further 
hazards become apparent dur¬ 
ing play. Lightning reflexes 
help but you must collect the 
right objects in the right order, 
placing them in the right 
places to unblock tunnels and 
circumvent traps. Objects will 
kill you if they are taken out of 
order. And death is not a pretty 
sight, happening many times 
before you discover the cor¬ 
rect method for each screen- 
escape and even then, 
Scorpion stings may get you. 

This requires patience, mul¬ 
tiple eyes, low cunning and a 
fast joystick. It’s very addictive 
— dawn broke as I reached 
level 6 . Will satisfy adventure 
and arcade fans. More please! 
D.C. 

instructions * 0 % 

playability 

graphics 

value for money ° b/o 


The screen setting is a map of 
islands in the Caribbean, with 
turtles swimming between 
them. Your objective is to get 
from one island to another and 
| collect treasure points 
However, it’s not quite as 
simple as that. 

You can jump short dis- 
tances and travel on anything 
I so,id - This means you can 
travel from one island to 
another on the backs of the 
turtles, if you can keep your 
balance. The only trouble is 
[ that if a crocodile appears all 
the turtles dive. There are a 
few logs you could usefully 
jump onto, and there are also 
i some small volcanic islands 
that appear and later sink 
beneath the surface. So it is 
possible, with difficulty, to 
travel the islands. 

Food grows on the islands 
and is used to top up your 
energy level. There is an 
energy barometer displayed 
LP n the screen to guide you 





when it’s time for a forage. 

You must recover the 
treasure by jumping in while 
the chest lid is open and get¬ 
ting out again before it closes. 
The longer you’re in the more 
treasure you collect. Collected 
treasure must be taken back 
to your home base. 

A nice game whose theme is 
different from the run of the 
mill. I found it difficult to keep 
on the backs of the turtles and 
consequently tended to end 
up on one island far from the 
treasure but feeding myself 
silly. Needs joystick L.C. 
instructions , jqo /o 

playability 0 O o/ o 

graphics 70 o / 0 

value for money 70% 


Multisound 

Synthesizer 

£14.99 


Romik, 272 Argyll Ave, Slough 
Berks 


This utility is designed to allow 
you to use the sound 
capabilities of the 64 without 
, p OKEing. The range of control 
offered is enormous and this 
review can only hint at all the 
features available. 

The synthesizer consists of 
three screen displays. You set 
up the characteristics of the 
note you want using a control 
screen. This allows you to 
adjust the attack decay, sus¬ 
tain, release etc. The levels set 
for each parameter are 
indicated by a bar chart 
display. 

Switching to the keyboard 
screen displays a three octave 
I ke yboard with the notes 
suitably identified, e.g. Q is 
note C, and 2 is C sharp. As 
the 64 has four rows of keys 
I the set-up becomes similar to 
a two keyboard organ. As you 
play the note in use is 
indicated. You can move the 
entire keyboard up or down a 
Jew octaves as required. I 


found this presentation made 
it very easy to play. 

The third screen is for spe¬ 
cial effects, giving complete 
control over all the remaining 
sound features built into the 
64. There are just too many to 
itemise. You have control over 
all the filtering effects, 
oscillator and envelope 
sweeping, ring modulation etc. 

You can obviously create 
tunes, but you can also 
append tunes, store up to nine 
tunes in the 64’s memory, 
superimpose tunes over one 
of eight built-in drum routines, 
or create your own. Lastly the 
tunes can be SAVEd to tape or 
disk 

This program is great for two 
types of user — the one 
fingered organists and the 
experimenter. It is an easy 
way of trying out different set¬ 
tings so you know what you 
want to code into your own 
programs. L.C. 


"Cash Controller 

disc £14.95 


instructions 
ease of use 
display 

value for money 


70% 

70% 

80% 

80% 


Richard Shepherd Software, 
23-25 Elmshott La, Cip* 
penham, Berks 

A potentially useful package 
for those who like to keep 
track of their expenditure. The 
routines are nicely written and 
crash-proof. 

The package starts by pre¬ 
senting a Main Menu. First¬ 
time users would then select 
from this the Budget Menu 
and set up headings. You are 
allowed up to 16, e.g. car, heat- 
ing, phone etc. There is an 
option to change these if you 
have second thoughts. You 
can then allocate a budget to 
each. Finally you can transfer 
to the Bank Account Menu 
and set up an opening 
balance To cut out 
unnecessary repetition, you 
can even set up standing 

orders. .. 

You would subsequently 
update via the Bank Account 
Menu. Entering transactions is 
very simple and prompts are 
clear. First you enter the date, 
then a short (up to 10 charac¬ 
ters) description. Next you 


enter the heading to be 
debited (or credited) and the 
amount. That’s all there is to it 
The computer does the 
appropriate calculations and 
updating as necessary. You 
can then call up a number of 
reports, to the screen or 
printer. 

You can print out your 
budget headings, just for 
reference. More to the point 
you can print out details of 
your budgets and variances 
(the difference between what 
you allowed and what you 
spent). You can also print a 
statement listing all transac¬ 
tions between two specified 

I found the package 
foolproof. My only niggle is 
that there is no quit option, 
which means turning the com¬ 
puter off at the end. L.C. 


instructions 
ease of use 
display 

value for money 


90% 

80% 

70% 

80% 






























PROGRAM 





Peck, peck... 

but watch out 
„ for the spider 


Your challenge is to eat the 
worms which keep appearing 
in your burrow. However, a 
spider is after your blood — 
and his touch is lethal. The 
controls are included in the 
game. 

How it works 

10-190 define characters 
200-250 set up opening 
screen and wait for key¬ 
press 

260-330 put burrow on 
screen 

340 sets up variables 
350 puts man on screen 
360-390 put random worms 
on screen 

400-460 check for man hitting 
monster 

470 prints score at the top of 
the screen 

480-520 check for the direc¬ 
tional keys to be hit 


530-580 moves man left 
590-640 moves man right 
650-730 moves man down 
740-820 moves man up 
830-880 moves monster left 
to right 

890-920 moves monster up or 
down 

930-960 add 10 to score and 
make worms disappear 
970-1010 got you! routine 

Variables 

MA screen position of the top 
left corner of your man 
LU top left character of your 
man 

LL bottom left of your man 
RU top right character of your 
man 

RL bottom right of your man 
SC score 

MO screen position of the top 
left corner of the monster 


REMs have been inserted in the lines above control 
characters to guide you as you type in Tweet Tweet. 
Do not enter the REMs. Remember also that it’s 
quicker and ensures all lines will fit if you abbreviate 
the BASIC keywords — there is a list in your manual. 


610 F'OKEMA, 32 ■ POKEMfl+22,32 
620 Mfl=Mfl+1 

630 IFPEEK<Mfl+2 >=80RPEEK <Mfi+24)=8THENGOSUB930 
640 GOTO350 

650 IFPEEK(MR-22)=11THEHGOTO670 
660 GOTO350 
670 S0=128 : G=0 

680 POKEMfi+22,32■POKEMfl+23,32 : G=G+1 

690 IFPEEK(Mfl-44)=3GRPEEK(MR-45>=8THENZ=Z-1•SC=SC+10 

700 MR=Mfi-22:PGKEMR, LU■POKEMfl+1,RU:POKEMA+22,LL = POKEMfl+23,RL:P0KE36878,15 
710 P0KE36376,SO : SO=SO+40 

720 IFG=3THENP0KE36376,O:POKEMfl+44,11:GOTO350 
730 GOTO680 

740 IFPEEK<Mfl+44>=11THENGOTO760 
750 GOTO350 
760 80=208:G=0 

770 F'OKEMR, 32 = P0KEMR+1,32: G=G+1 

780 IFPEEK(Mfl+44)=80RPEEK(Mfl+45>=9THEMSC=SC+10:Z=Z-1 

790 Mfl=Mfl+22:POKEMfl,LU : P0KEMA+1, RU : POKEMfl+22,LL POKEMfl+23,RL■P0KE36878,15 
800 P0KE36876, SO = S0=S0-4G 

810 IFG=3THENP0KE36876,0 = POKEMfl-22,11•GOTO350 
820 GOTO770 

330 I FPEEK ( MO+2 ) O32THENGOTO430 
840 F'OKEMO, 32 : P0KEM0+22, 32 • M0=M0+1 
850 GOTO430 

860 I FPEEK < MO-1) O32THENGOTO430 
870 P0KEM0+1,32:POKEMO+23,32•MO=MO-1 
380 GOTO430 

890 F'OKEMO, 32 : P0KEM0+1,32 ' P0KEM0+22, 32: POKEMO+23, 32 
900 M0=M0-66 GOTO460 

910 F'OKEMO, 32 POKEMO+1,32 P0KEM0+22,32 •' POKEMO+23 32 
920 M0=M0+66:G0T0460 
930 SC-SC+10 

940 POKEMfl-1,32-P0KEMA+21,32 
950 POKEMfl+2, 32 •' POKEMfl+24,32: Z=Z-1 
960 RETURN 
965 REMCCLR] 

970 PRINT "IT 1 POKE36878,0 

975 REMCWHT] [RVS 0NH2 CRSR BONN DCS CRS RIGHT] 

980 PRINT" JSUU»»»IG0T VOU!" 

985 REMCCRSR DOWNK3 CRSR RIGHT][RVS ON] 

990 F'R I NT " ttWlSWOU SCORED ", SC 
1000 FORT=0TO1000=NEXT 
1010 GOTO220 



Page 14 YOUR COMMODORE, free with Personal Computing Today, July 1984 






















Audiogenic Vic-20 Games 


never turn your back on them 


Spiders of Mars, Outworld and Cloudburst - three classic cartridge 
games - now available on cassette! Bonzo and Kaktus, both bestsellers, 
are now joined by the latest crazy mazey game - Shifty! From all major 
software shops everywhere. 

These incredible games cassettes all require 8K minimum RAM 
expansion. All prices include V.A.T. and P. & P. 

WRITE OR PHONE FOR FREE COLOUR CATALOGUES. 


Audiogenic, PO Box 88, Reading, Berks, England. Tel: (0734) 586334. 
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SUPERSOFT, Winchester House, Canning Road, Wealdstone, Harrow, Middlesex, HA3 7SJ Telephone: 01-861 1166 

























